;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1-25-2013
;;;	   Edited: 1-25-2013
;;;
;;;****************************************************************************
(DEFUN makegroup
       (name aselset counter / makegroup_objdict makegroup_grpdict grp_name_a grp_name_b grp_name_b2 grp_name_c)
      (IF C:DEMGROUPS NIL (LOAD "groups" "\nFile GROUPS.LSP not loaded! "))
      (IF C:DEMGROUPS (C:DEMGROUPS))
      (SETQ grp_name_a name
            grp_name_b (STRCAT (RTOS (FIX (* 10000000 (REM (GETVAR "cdate") 1.0))) 2 0) (ITOA counter))
            grp_name_c (IF usrsfx usrsfx "")
      ) ;_ end of setq
      (SETQ makegroup_objdict (NAMEDOBJDICT))
      (SETQ makegroup_grpdict (DICTSEARCH makegroup_objdict "ACAD_GROUP"))
      (SETQ tst_ss aselset)
;;;      (IF (DICTSEARCH (CDAR makegroup_grpdict) (STRCAT grp_name_a grp_name_b "_" grp_name_c))
;;;        (IF (AND (OR (EQ name "MHLBL_") (EQ name "XING_") (WCMATCH name "CASE*"))
;;;                 (/= (CDR (ASSOC 0 (ENTGET (SSNAME aselset 0)))) "INSERT")
;;;            ) ;_ end of AND
;;;          (PROGN
;;;            (SETQ grp_name_b2 (RTOS (FIX (* 10000000 (REM (GETVAR "cdate") 1.0))) 2 0))
;;;            (COMMAND "-group"
;;;                     "rename"
;;;                     (STRCAT grp_name_a grp_name_b "_" grp_name_c)
;;;                     (STRCAT grp_name_a grp_name_b "_" grp_name_b2 "_" grp_name_c)
;;;                     ""
;;;            ) ;_ end of COMMAND
;;;            (COMMAND "-group" "create" (STRCAT grp_name_a grp_name_b "_" grp_name_c) "MHANG_TAG" aselset "") ;_ end of COMMAND
;;;            (IF erase_old_mhlbl
;;;              (PROGN (COMMAND ".line" (GETVAR "viewctr") (GETVAR "viewctr") "")
;;;                     (COMMAND "-group" "add" (STRCAT grp_name_a grp_name_b "_" grp_name_b2 "_" grp_name_c) (ENTLAST) "")
;;;                     (COMMAND ".erase" "p" "")
;;;              ) ;_ end of PROGN
;;;            ) ;_ end of IF
;;;          ) ;_ end of PROGN
;;;          (PROGN
;;;        (PRINC "\nname = ")
;;;        (PRINC name)
;;;        (PRINC "\n")
;;;        (PRINC "(CDR (ASSOC 0 (ENTGET (SSNAME aselset 0)))) = ")
;;;        (PRINC (CDR (ASSOC 0 (ENTGET (SSNAME aselset 0)))))
;;;        (PRINC "\n")
;;;        (PRINC)
;;;                 (COMMAND "-group" "add" (STRCAT grp_name_a grp_name_b "_" grp_name_c) aselset "") ;_ end of COMMAND
;;;          ) ;_ end of PROGN
;;;        ) ;_ end of IF
        (COMMAND "-group" "create" (STRCAT grp_name_a grp_name_b "_" grp_name_c) "MHANG_TAG" aselset "") ;_ end of COMMAND
;;;      ) ;_ end of if
  (EVAL T)
) ;_ end of DEFUN
;;;****************************************************************************
